*********************************************************************
**** Replicación de artículo SAAP //               ******************
****  Caminos al poder político: el efecto de la    *****************
****  magnitud del distrito y la experiencia        *****************
****  previa para las carreras políticas de         *****************
****  congresistas en Colombia                      *****************
*********************************************************************


** Cargar la base de datos


use "C:\Users\...\Carreras legislativas Colombia\Material replicacion\Data paper.dta", clear


*** Gráfico 2

graph bar, over (Vd_tip_carre2)


**** Modelos del paper

*** logit (Tabla 2)

logit vd_ascen c.V6_dist_magn i.V1_exp_repre i.V1_exp_eje i.V1_exp_desig i.V7_titu c.V1_edad_salida i.V8_parti_long ib2.V4_nic_educ2 i.V2_sexo, vce (cluster Id4_region) or
outreg2 using Tabla12.doc, replace ti(Carreras politicas legislativas Colombia 1991-2014) ctitle(Ascendente) label dec(2)
*est store Ascendente
*margin, dydx (i.V1_exp_dico i.V7_titu c.V1_edad_salida i.V2_sexo ib2.V4_nic_educ2 c.V6_dist_magn i.V8_parti_long) post
estimates store Ascendente

logit vd_estat c.V6_dist_magn i.V1_exp_repre i.V1_exp_eje i.V1_exp_desig c.V1_edad_salida i.V8_parti_long ib2.V4_nic_educ2 i.V2_sexo, vce (cluster Id4_region) or
outreg2 using Tabla12.doc, append ctitle(Estatica) label dec(2)
est store Estatica

logit vd_regre c.V6_dist_magn i.V1_exp_repre i.V1_exp_eje i.V1_exp_desig i.V7_titu c.V1_edad_salida i.V8_parti_long ib2.V4_nic_educ2 i.V2_sexo, vce (cluster Id4_region) or
outreg2 using Tabla12.doc, append ctitle(Regresiva) label dec(2)
est store Regresiva

logit vd_disc c.V6_dist_magn i.V1_exp_repre i.V1_exp_eje i.V1_exp_desig i.V7_titu c.V1_edad_salida i.V8_parti_long ib2.V4_nic_educ2 i.V2_sexo, vce (cluster Id4_region) or
outreg2 using Tabla12.doc, append ctitle(Discreta) label dec(2)
est store Discreta

 

*** Gráfico 3

*ascendente
coefplot (Ascendente), bylabel(Ascendente) ||, drop(_cons) xline(1, lpattern(dash) lcolor(black)) eform xtitle(Odds Ratio) levels(95) mlabel format(%9.2f) mlabposition(1) mlabgap(*2) byopts(compact cols(1)) coeflabels(V6_dist_magn = "Magnitud del distrito" V1_edad_salida = "Edad de salida") graphregion(fcolor(white)) sort

*regresiva
coefplot (Regresiva), bylabel(Regresiva) || , drop(_cons) xline(1, lpattern(dash) lcolor(black)) eform xtitle(Odds Ratio) levels(95) mlabel format(%9.2f) mlabposition(1) mlabgap(*2) byopts(compact cols(1)) coeflabels(V6_dist_magn = "Magnitud del distrito" V1_edad_salida = "Edad de salida") graphregion(fcolor(white)) sort

*discreta
coefplot (Discreta), bylabel(Discreta) || , drop(_cons) xline(1, lpattern(dash) lcolor(black)) eform xtitle(Odds Ratio) levels(95) mlabel format(%9.2f) mlabposition(1) mlabgap(*2) byopts(compact cols(1)) coeflabels(V6_dist_magn = "Magnitud del distrito" V1_edad_salida = "Edad de salida") graphregion(fcolor(white)) sort

*estatica
coefplot (Estatica), bylabel(Estatica) || , drop(_cons) xline(1, lpattern(dash) lcolor(black)) eform xtitle(Odds Ratio) levels(95) mlabel format(%9.2f) mlabposition(1) mlabgap(*2) byopts(compact cols(1)) coeflabels(V6_dist_magn = "Magnitud del distrito" V1_edad_salida = "Edad de salida") graphregion(fcolor(white)) sort



*** Multinomial logit (Tabla 3)

mlogit Vd_tip_carre2 c.V6_dist_magn i.V1_exp_repre i.V1_exp_eje i.V1_exp_desig i.V7_titu c.V1_edad_salida i.V8_parti_long ib2.V4_nic_educ2 i.V2_sexo, base(3) vce(cluster Id4_region)
outreg2 using Tabla12.doc, replace ti(Carreras politicas legislativas Colombia 1991-2014) label dec(2)


*** Gráfico 4

set scheme plotplain

margins, at(V6_dist_magn = (2(1) 18)) predict(outcome(1)) vsquish
marginsplot, name(Ascende) 
margins, at(V6_dist_magn = (2(1) 18)) predict(outcome(2)) vsquish
marginsplot, name(Estat) 
margins, at(V6_dist_magn = (2(1) 18)) predict(outcome(3)) vsquish
marginsplot, name(Regres) 
margins, at(V6_dist_magn = (2(1) 18)) predict(outcome(4)) vsquish
marginsplot, name(Discr)
graph combine Ascende Estat Regres Discr, ycommon 


*** Gráfica 5

catplot Id11_carg_post if Vd_tip_carre2==3, percent(Vd_tip_carre2)




****** Anexos

*** Tabla 4

tabout Nom_Depart Vd_tip_carre2 using tablas_magnitud.xls, ///
c(freq col row)  f(1p 1p) clab(_ _) ///  
layout(rb) h3(nil) 
///


*** Gráfico 6

graph bar, over(v1_exp_dico) over(Vd_tip_carre2) asyvars  percentages


*** Tabla 5

su vd_ascen vd_estat vd_regre vd_disc Vd_tip_carre2 V1_exp_repre V1_exp_eje V1_exp_desig V7_titu V1_edad_salida V8_parti_long V2_sexo V4_nic_educ2
